home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 84
/
084.d81
/
dina boot
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
719b
|
21 lines
5 dv=peek(186):ifdv<8thendv=8
10 poke53281,0:poke53280,0:print"[147]"
15 poke214,8:print:printtab(7)"[129][196] [201] [206] [193] [205] [193] [212] [200]"
20 printtab(8)"[158][198]or my great-niece, [194]eth"
30 gosub60000
35 print"[144]load"chr$(34)"dina math"chr$(34)",dv
40 [153]"run"
45 [151]64[172]256,0:[151]44,64:[151]16384,0
50 [151]631,13:[151]632,13:[151]198,2:[128]
60000 b9$[178]" "
60010 [151]214,14:[153]:[153]" listfrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefreprint#"
60020 [129]i[178]0[164]7:[153]b9$:[130]:[153]" pokeposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposprint#"
60030 b9$(0)[178]"str$ right$ (NULL) atn (NULL) atn (NULL) left$ (NULL)1"
60040 b9$(1)[178]"by left$enry lenochran
60050 b9$(2)="([195]) 1991 by [211]oftdisk, [201]nc."
60060 b9$(3)="[208]ublished on [204][207][193][196][211][212][193][210] #84"
60070 b9$(4)="[211]ubscriptions 1-800-831-2694"
60080 b9$(5)="[193]ll [210]ights [210]eserved"
60090 poke214,16:print:fori=0to5:printtab(20-(len(b9$(i))/2))""b9$(i):next
60099 return